home *** CD-ROM | disk | FTP | other *** search
/ MacFormat España 14 / MacFormat n. 14 (Spain) / MacFormat 14.bin / Shareware Internet / HyperCard / XCMD Docs / CompileIt! Source Code / getCardPicts() < prev    next >
Encoding:
Text File  |  1995-09-11  |  358 b   |  10 lines
  1. function getCardPicts
  2.   put "" into PICTList
  3.   repeat with x=1 to Count1Resources("PICT")
  4.     put get1Indresource("PICT",x) into ResHndl
  5.     GetResInfo ResHndl,ResType,ResID,ResName
  6.     if word 1 to 2 of ResName="card id" then put ResID && quote & resName & quote & "," after PICTlist
  7.     releaseResource ResHndl
  8.   end repeat
  9. return PICTList
  10. end getCardPICTs